home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / util / rexx / rmh.lha / RMH / Examples / pname.rexx < prev    next >
OS/2 REXX Batch file  |  2001-05-24  |  239b  |  11 lines
  1. /*
  2. usage of ProgramName()
  3. */
  4.  
  5. l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  6.  
  7. say "Simple:" ProgramName()
  8. say "NoExt: " ProgramName("NOEXT")
  9. say "Full:  " ProgramName("FULL")
  10. say "Path:  " PathPart(ProgramName("FULL"))
  11.